﻿Public Class Feedback

    Private Sub Feedback_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If My.Computer.Network.IsAvailable = True Then
            WebBrowser1.Navigate("http://po4teda.narod.ru/feedback.html")
        Else
            MsgBox("You are not connected to the Internet, so you can't submit a feedback. Connect to the Internet and try again!", 64, "Feedback")
            Me.Close()
        End If
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If WebBrowser1.Url.ToString = "http://po4teda.narod.ru/feedback.html" Then

        Else
            Me.Close()
        End If

    End Sub
End Class